home *** CD-ROM | disk | FTP | other *** search
/ Ahoy: Best of 1985 / Ahoy_Best_of_1985_1986_Double_L.d64 / telelink f'85 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  65 lines
  1. 9 poke53280,6:poke53281,15:poke646,0
  2. 10 poke45,0:poke46,19:poke56,21:poke52,21:clr
  3. 20 s=54272:pokes+5,12:pokes+6,0:pokes+24,15:pokes+1,25:pokes,177:poke808,239
  4. 30 sys6390
  5. 40 open2,2,3,chr$(6)
  6. 50 poke251,peek(6154):poke252,peek(6155)
  7. 100 poke54276,0:print"[147]":print"               main menu":print:print
  8. 110 print"1 terminal":print
  9. 120 print"2 search text":print
  10. 130 print"3 save":print
  11. 140 print"4 load":print
  12. 150 print"5 save to printer":print
  13. 155 print"6 buffer":print
  14. 160 print"key digit"
  15. 170 geta$:ifa$<"0"ora$>"6"then170
  16. 190 onval(a$)gosub300,800,400,500,600,700
  17. 200 goto100
  18. 300 print"[147]":poke53272,23:sys6528
  19. 310 print"[147]":poke53272,21:print"have you logged off?"
  20. 320 fora=1to3000:next:return
  21. 400 print"[147]":print:print"              save menu":print:print
  22. 410 print"1 save selected text":print:print"2 save all text":print
  23. 415 print"3 abort this function":print
  24. 420 print"key digit":print
  25. 430 getaa$:ifaa$<"1"oraa$>"3"then430
  26. 440 ifaa$="3"thenreturn
  27. 450 gosub590:open1,a,1,f$
  28. 460 sys-(6240*(aa$="1"))-(5824*(aa$="2"))
  29. 470 close1:return
  30. 500 print"[147]":print:print"              load menu":print:print
  31. 510 print"1 load":print:print"2 abort this function":print
  32. 520 print"key digit":print
  33. 530 geta$:ifa$="2"thenreturn
  34. 540 ifa$<>"1"then530
  35. 550 gosub590:open1,a,0,f$
  36. 560 poke6151,a:sys6291:close1:return
  37. 590 f$="":input"filename";f$
  38. 591 iff$=""thenprint:goto590
  39. 592 print:print"tape or disk?"
  40. 594 geta$:a=1:ifa$="d"thena=8:f$="@0:"+f$:return
  41. 596 ifa$<>"t"then594
  42. 598 return
  43. 600 print"[147]":print:print"             printer menu":print:print
  44. 610 print"1 print all text":print:print"2 print selected text":print
  45. 615 print"3 abort this function":print:print"key digit":print
  46. 620 geta$:ifa$<"1"ora$>"3"then620
  47. 630 print"ok":open4,4:onval(a$)goto650,660,690
  48. 650 fora=6656topeek(251)+peek(252)*256:goto680
  49. 660 fora=peek(6152)+peek(6153)*256topeek(6154)+peek(6155)*256
  50. 680 print#4,chr$(peek(a)and127);:next:print#4
  51. 690 close4:return
  52. 700 print"[147]":print:print"             buffer menu":print:print
  53. 710 print"0 reset buffer":print:print"1 buffer on":print:print"2 buffer off"
  54. 720 print:print"3 abort this function":print:print"key digit":print
  55. 730 geta$:ifa$<"0"ora$>"3"then730
  56. 740 ifa$="0"then780
  57. 750 ifa$="1"thenpoke6150,0:print"buffer on":fora=1to2000:next
  58. 760 ifa$="2"thenpoke6150,1:print"buffer off":fora=1to2000:next
  59. 770 return
  60. 780 poke251,1:poke252,26:poke6152,1:poke6153,26:poke6154,1:poke6155,26
  61. 790 print"buffer reset":fora=1to2000:next:return
  62. 800 print"[147]":print"display buffer":print
  63. 810 sys5377
  64. 820 return
  65.